Function SpyBrowser(byVal appObject)
	Dim webObjects
	Dim temp
	Dim parentObject
	Dim i
	Dim webObjArray

	Set parentObject =  Browser(appObject).Page("micclass:=Page")

	webObjArray=ColWebObject
	
	For Each temp In webObjArray
		Set webObjects =parentObject.ChildObjects(temp)
		For i=0 to webObjects.count-1
			print webObjects(i).GetROProperty("Name")
		Next
	Next

End Function

Function ColWebObject
	Dim objectArray
	Dim desc
	Dim temp
	Dim i

	objectArray =Array("WebEdit","Link","WebButton","WebArea","WebCheckBox","WebFile","WebList","WebRadioGroup","WebTable","WebXML")
	For i=0 to UBound(objectArray)
		Set desc = Description.Create()
		desc("micclass").Value = objectArray(i)
		Set objectArray(i) = desc
	Next

	ColWebObject = objectArray
End Function